home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 83 / Tiger_Disk_083_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ende ii_43 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  460b  |  13 lines
  1. 1 poke53280,.:poke53281,.:printchr$(147):poke53265,80:s=54272:fori=15to1
  2. 6 pokes+24,i:ford=8to14:
  3. 11 pokes+4,17:pokes+11,33:pokes+18,129:pokes,205:
  4. 16 pokes+5,12:pokes+12,96:pokes+13,242:pokes+19,96::pokes+20,7:poke646,d*2
  5. 21 :poke53282,d
  6. 26 pokes+5,9:pokes+6,139:forx=1to11:pokes+24,15:poke53284,peek(646)*rnd(1)+d
  7. 27 :poke53283,d+2
  8. 28 printtab(i+rnd(d)*x)" ";:gosub40
  9. 31 pokes+4,16:pokes+11,16:pokes+18,16 ::poke53284,x:pokes+1,d+abs(i/x)
  10. 36 next:next::next:
  11. 37 fort=1to1250:next:poke56325,.:print"[147] lukian":fort=1to25 :next:sys2048
  12. 40 printtab(i)"[129][197][150][206][152][196][154][197][153][146]";:poke53284,14*rnd(1)+14 :return
  13.